POINT Software Programming/PPROG1.ISO/pascal/swag/crt.swg/0024_FAST GoToXY (BASM).pas

Pascal/Delphi Source File | 1994-08-24 | 214 b | 17 lines

procedure GoToXY(x,y : word);
begin
  asm
    mov    ax,y
    mov    dh,al
    dec    dh
    mov    ax,x
    mov    dl,al
    dec    dl
    mov    ah,2
    xor    bh,bh
    int    10h
  end
end;